home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / plotter boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  539b  |  23 lines
  1. 10 rem   plotter boot
  2. 20 :
  3. 30 poke53280,5:poke53281,0:print"[147]"
  4. 40 printspc(11)"[211][217][211][208][204][207][212][212][197][210] [205][197][206][213]"
  5. 45 printspc(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  6. 50 print""
  7. 60 print" 1.  [210]un the [194][193][211][201][195] sine program"
  8. 70 print" 2.  [210]un the [211][217][211][208][204][207][212] sine program"
  9. 80 print" 3.  [210]un the [208][204][207][212][212][197][216][212] [196]emo"
  10. 85 print" 4.  [210]eturn to [204][207][193][196][211][212][193][210]"
  11. 90 print"[215]hich ?";
  12. 100 poke198,0:wait198,1:getk$:k=val(k$)
  13. 110 ifk<1ork>4then100
  14. 120 printk
  15. 130 ifk=1thenf$="sine.bas"
  16. 140 ifk=2thenf$="sine.ml"
  17. 150 ifk=3thenf$="plottext"
  18. 160 ifk=4thenf$="hello"
  19. 170 :
  20. 180 print"[204]oading "f$
  21. 190 print"[144]load"chr$(34)f$chr$(34)      ",8":print"run"
  22. 200 poke631,13:poke632,13:poke198,2:end
  23.